home *** CD-ROM | disk | FTP | other *** search
/ Strategy Challenges Collection / Strategy Challenges Collection.iso / pc / demo / demodata / mainint.dxr / 00107.ls < prev    next >
Encoding:
Text File  |  1996-09-30  |  227 b   |  11 lines
  1. on exitFrame
  2.   repeat while the volume of sound 1 < 255
  3.     set x to the volume of sound 1
  4.     set the volume of sound 1 to x + 10
  5.     startTimer()
  6.     repeat while the timer < 4
  7.       nothing()
  8.     end repeat
  9.   end repeat
  10. end
  11.